﻿Module Module1

    Sub Main()
        Console.Title = "Bucles ejercicio1"
        Dim numSr As String

        Do
            Console.Write("Introduzca un numero positivo ")
            numSr = Console.ReadLine()
        Loop Until IsNumeric(numSr) AndAlso CType(numSr, Integer) > 0

        Console.WriteLine("La raiz cuadrada es: " & Math.Sqrt(Integer.Parse(numSr)))
        Console.ReadKey()
    End Sub

End Module
